www.gusucode.com > 深度学习(asp)网址导航 v4.0.1 > 深度学习(asp)网址导航 v4.0.1\code\admin\Site\url_Manage.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
projectRootPath = "../../" '相对当前应用程序根的位置
%>
<!-- #include file ="../include/checkPurview.asp"-->
<!--#include file="../../ConnDB.asp"-->
<!--#include file="../../include/Deep.Class.Page.asp"-->
<!--#include file="../../include/Function.Common.asp"-->
<!-- #include file="../include/Function.Manage.Config.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="robots" content="noindex,nofollow" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>网站管理</title>
<link href="../themes/<%=theme_Path%>/main.css" rel="stylesheet" type="text/css" />
<SCRIPT language=javascript>
<!--
function selectAll(){
var len=document.form1.id.length;
if(len>1){
for(var i=0;i<len;i++){
document.form1.id(i).checked=true;
}
}
else
document.form1.id.checked=true;
}
function cancelSelect(){
var len=document.form1.id.length;
if(len>1){
for(var i=0;i<len;i++){
document.form1.id(i).checked=false;
}
}
else
document.form1.id.checked=false;
}
function passed(){
//document.form1.stat.value="passed";
document.form1.method="get";
document.form1.action="url_Pass.asp";
document.form1.submit();
}
//-->
</SCRIPT>
</head>
<body id="bodyBg1">
<br />
<a href="url_Manage.asp?passed=<%=request("passed")%>">网站管理</a> | <a href="url_Add.asp">网站添加</a>
<hr color="#0099FF" size="1" />
<dl class="manageContent">
<dt>网站管理</dt>
<dd>
<br />
<%
id_Sort=request.QueryString("id")
passed=request.QueryString("passed")
searchText =trim(request.QueryString("searchText"))
'--- 1 分页初始化 -----
Dim oPageMsSQL
Set oPageMsSQL=new Deep_Page
oPageMsSQL.pageSize=100 '定义每页显示记录数 默认10条
oPageMsSQL.getConnection(conn)
'当前页
if (Request.QueryString("page") <>"") then
oPageMsSQL.currentPage=CInt(Request.QueryString("page"))
End if
'PageSQL( tableName, dataKeyField, wordField, whereCondition, orderByField)
'-----1 end------
'Set RsWebDir=Server.CreateObject("Adodb.Recordset")
'WebDir_Sql="select * from deep_WebUrl order by fid_Sort,forderID"
WebDir_Sql=oPageMsSQL.PageSQL( "deep_WebUrl", "fid", "*","" ,"fid_Sort,forderID,fid")
if (id_Sort<>"") then
'WebDir_Sql="select * from deep_WebUrl where fid_Sort="&id_Sort&" order by fid_Sort,forderID"
WebDir_Sql=oPageMsSQL.PageSQL( "deep_WebUrl", "fid", "*","fid_Sort="&id_Sort ,"fid_Sort,forderID,fid")
end if
if (searchText<>"") then
'WebDir_Sql="Select * from deep_WebUrl where fname like '%"& searchText & "%' or furl like '%"&searchText&"%' order by fid_Sort,forderID"
WebDir_Sql=oPageMsSQL.PageSQL( "deep_WebUrl", "fid", "*","fname like '%"& searchText & "%' or furl like '%"&searchText&"%'" ,"fid_Sort,forderID,fid")
end if
if (passed<>"") then
'WebDir_Sql="Select * from deep_WebUrl where fpassed = "& passed & " order by fid_Sort,forderID"
WebDir_Sql=oPageMsSQL.PageSQL( "deep_WebUrl", "fid", "*","fpassed = "& passed ,"fid_Sort,forderID,fid")
end if
Set RsWebDir =conn.execute(WebDir_Sql)
if RsWebDir.Eof and RsWebDir.Bof then
Response.Write("<p>暂时没有网站！！！</p>")
Else
%>
<div align="center">
<form id="form2" name="form2" method="get" action="">
站内搜索:
<input name="searchText" type="text" id="searchText" value="输入网站名称或网址" onfocus="this.value=''" />
<input name="SearchInside" type="submit" id="Search" value="搜 索" />
</form>
<form action="url_DEL.asp" method="post" name="form1" onsubmit="return confirm('删除后将不能恢复，你确定删除么？')">
<table width="95%" class="tableBoder01">
<tr>
<th>删除</th>
<th>审核</th>
<th>网站名称</th>
<th>网址类别</th>
<th>排序ID</th>
<th>状态</th>
<th>管 理</th>
</tr>
<%
'while (PageSize<>0)and(Not RsWebDir.Eof)
while (Not RsWebDir.Eof)
%>
<tr>
<td>
<input name="id" type="checkbox" value="<%=RsWebDir("fid")%>" /> </td>
<td>
<input name="passed_id" type="checkbox" value="<%=RsWebDir("fid")%>" /> </td>
<td align="left"><a href="<%=RsWebDir("furl")%>" target="_blank" title="<%=RsWebDir("ftip")%>"><%=replace(RsWebDir("fname"),searchText,"<font color='0000ff'>"&searchText&"</font>")%></a>
</td>
<td>
<%
Set RsClassManage=Server.CreateObject("Adodb.Recordset")
Class_Sql="Select * from deep_WebSort where fid_Sort="& RsWebDir("fid_Sort")
RsClassManage.open Class_Sql,conn,1,1
if RsClassManage.eof and RsClassManage.bof then
response.Write("没有分类")
else
%>
<a href="url_Manage.asp?id=<%=RsClassManage("fid_Sort")%>"><%=RsClassManage("fname")%></a>
<%
end if
RsClassManage.close
Set RsClassManage =Nothing
%> </td>
<td><%=RsWebDir("forderID")%></td>
<td><%if RsWebDir("fpassed")=0 then%><font color="#FF0000">(未审阅)</font><%end if%> </td>
<td><a href="url_Update.asp?id=<%=RsWebDir("fid")%>&Page=<%=page%>&passed=<%=passed%>">修改</a> | <a href="url_DEL.asp?id=<%=RsWebDir("fid")%>&passed=<%=request("passed")%>" onclick="return confirm('删除后将不能恢复，你确定删除么？')">删除</a></td>
</tr>
<%
RsWebDir.MoveNext
'PageSize=PageSize-1
wend
%>
</table>
选择：<a href="javascript:selectAll()">全选</a>
<a href="javascript:cancelSelect()">取消</a>
<input type="submit" name="Submit" value="删 除" />
<a href="javascript:passed()" >审核</a>
<input type="hidden" name="passed" value="<%=request("passed")%>" />
</form>
</div>
<%
end if
RsWebDir.close
Set RsWebDir =Nothing
'call pagination(RsWebDir.PageCount,RsWebDir.pagesize,page,RsWebDir.RecordCount)
'--- 2 分页导航 显示 -----
response.Write( oPageMsSQL.PageNavigateUrl() )
Set oPageMsSQL=Nothing
'-----2 end------
Call CloseConnDB()
%>
<br />
</dd>
</dl>
<br />
</body>
</html>